home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / 1615copy.txt < prev    next >
Encoding:
Text File  |  1996-03-07  |  1.3 KB  |  40 lines
  1. If newtitle = TRUE then
  2. Eval("EraseDisplay(@" ^ title number ^ ")")
  3. Title number = "1615"
  4. Company = "Sony"
  5. title = "Novastorm"
  6. Price = 39.99
  7. Demo = false
  8. Button1 = false
  9. Button2 = false
  10. Button3 = false
  11. Button4 = false
  12. system = "PlayStation"
  13. Title Description = "In the gut wrenching, heart stopping ride of a lifetime, pilot the Scavenger 4
  14. space fighter between canyons, over glaciers and through cities in a one-on-one showdown with
  15. the deadly Scarab X. This heroic, high-flying blast 'em up features dazzling 3D graphics, fully
  16. interactive white-knuckle playability, amazing full motion video sequences and a rave
  17. soundtrack."
  18.  
  19. -----------------------------------
  20. dline = ""
  21. counter = 0
  22. repeat while dline <> title number
  23. counter = counter + 1
  24. dline = GetWord(1, GetLine(titl,counter))
  25. test(dline = title number, LineInTitle = counter)
  26. end repeat
  27. starttitle = LineInTitle
  28. num of titles shown = 6
  29. endtitle = starttitle + num of titles shown - 1
  30. titles = ""
  31. title highlight = ""
  32. repeat with counter = starttitle to endtitle
  33. nextline = GetLine(titl, counter)
  34. titles = titles ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return
  35. title highlight = Test(title number = GetWord(1, nextline), titlehighlight ^ SubStr(nextline, 6,
  36. CharCount(nextline)) ^ Return, title highlight ^ Return)
  37. end repeat
  38. dpage = CurrentPageID
  39. newtitle = FALSE
  40. end if